unit Inicio;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TF_Inicio = class(TForm)
    B_Clientes: TButton;
    B_Otras_Tablas: TButton;
    B_Turnos: TButton;
    B_Salir: TButton;
    Image1: TImage;
    procedure B_SalirClick(Sender: TObject);
    procedure B_ClientesClick(Sender: TObject);
    procedure B_TurnosClick(Sender: TObject);
    procedure B_Otras_TablasClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Inicio: TF_Inicio;

implementation

uses Clientes, Turnos, Otras_Tablas, Login;

{$R *.dfm}

procedure TF_Inicio.B_ClientesClick(Sender: TObject);
begin
  F_Clientes.Bandera_Seleccionar := False;
  F_Clientes.ShowModal;
end;

procedure TF_Inicio.B_Otras_TablasClick(Sender: TObject);
begin
  F_Login.ShowModal;
end;

procedure TF_Inicio.B_SalirClick(Sender: TObject);
begin
  F_Inicio.Close;
end;

procedure TF_Inicio.B_TurnosClick(Sender: TObject);
begin
  F_Turnos.ShowModal;
end;

end.
